home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / surfsrc3.zip / CHECKEY.INC < prev    next >
Text File  |  1989-08-10  |  364b  |  16 lines
  1. function CHECKEY: boolean;
  2. { Return TRUE if the 'A' key has been pressed, or FALSE otherwise }
  3. var c: char;
  4.  
  5. begin
  6.   c := ' ';
  7.   if (keypressed) then begin
  8.     c := readkey;      (*read (kbd, c);*) (**)
  9.     if (upcase (c) = 'A') then
  10.       Checkey := TRUE
  11.     else
  12.       Checkey := FALSE;
  13.   end else
  14.     Checkey := FALSE;
  15. end; { function CHECKEY }
  16.